summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Language/Fiddle/Compiler/Backend/C.hs11
1 files changed, 4 insertions, 7 deletions
diff --git a/src/Language/Fiddle/Compiler/Backend/C.hs b/src/Language/Fiddle/Compiler/Backend/C.hs
index a10839a..71344c5 100644
--- a/src/Language/Fiddle/Compiler/Backend/C.hs
+++ b/src/Language/Fiddle/Compiler/Backend/C.hs
@@ -9,23 +9,18 @@ module Language.Fiddle.Compiler.Backend.C (cBackend) where
import Control.Arrow
import Control.Monad (unless)
import Control.Monad.RWS
-import Control.Monad.State
-import Control.Monad.Trans.Writer (Writer, execWriter)
import qualified Data.Bits
import Data.Char (isSpace)
import Data.Data (Typeable, cast)
-import Data.Foldable (forM_, toList)
+import Data.Foldable (forM_)
import Data.Kind (Type)
-import qualified Data.List.NonEmpty as NonEmpty
import Data.Map (Map)
import qualified Data.Map as Map
-import Data.Maybe (fromMaybe, mapMaybe)
+import Data.Maybe (mapMaybe)
import Data.Set (Set)
import qualified Data.Set as Set
-import Data.String (IsString)
import Data.Text (Text)
import qualified Data.Text as Text
-import Data.Word
import Language.Fiddle.Ast
import Language.Fiddle.Compiler.Backend
import Language.Fiddle.Compiler.Backend.Internal
@@ -46,6 +41,8 @@ data CBackendFlags = CBackendFlags
cHeaderOut :: FilePath
}
+-- data StructureInterface = Leaf String String
+
type StructName = Text
-- | Header fragment. The top. Starts which include guards and has include