Sockeye: Add stub for net builder
[barrelfish] / tools / sockeye / SockeyeNetBuilder.hs
1 {-
2     SockeyeNetBuilder.hs: Decoding net builder for Sockeye
3
4     Part of Sockeye
5
6     Copyright (c) 2017, ETH Zurich.
7
8     All rights reserved.
9
10     This file is distributed under the terms in the attached LICENSE file.
11     If you do not find this file, copies can be found by writing to:
12     ETH Zurich D-INFK, CAB F.78, Universitaetstr. 6, CH-8092 Zurich,
13     Attn: Systems Group.
14 -}
15
16 {-# LANGUAGE MultiParamTypeClasses #-}
17 {-# LANGUAGE FlexibleInstances #-}
18 {-# LANGUAGE FlexibleContexts #-}
19
20 module SockeyeNetBuilder
21 ( sockeyeBuildNet ) where
22
23 import qualified SockeyeASTIntermediate as ASTI
24 import qualified SockeyeASTBackend as ASTB
25
26 newtype CheckFailure = CheckFailure
27     { message :: String }
28
29 instance Show CheckFailure where
30     show f = unlines $ ["", message f]
31
32 sockeyeBuildNet :: ASTI.SockeyeSpec -> Either CheckFailure ASTB.NetSpec
33 sockeyeBuildNet _ = Left $ CheckFailure "Net Builder not yet implemented"