diff options
Diffstat (limited to 'src/Language/Fiddle/Compiler/Expansion.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler/Expansion.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Language/Fiddle/Compiler/Expansion.hs b/src/Language/Fiddle/Compiler/Expansion.hs index 5e7063e..94042a2 100644 --- a/src/Language/Fiddle/Compiler/Expansion.hs +++ b/src/Language/Fiddle/Compiler/Expansion.hs @@ -6,11 +6,8 @@ module Language.Fiddle.Compiler.Expansion (expandAst, expansionPhase) where -import Control.Monad.Identity (Identity (..)) import Control.Monad.State (get, modify, put) import qualified Data.Char as Char -import Data.List (intercalate) -import Data.List.NonEmpty (NonEmpty, (<|)) import qualified Data.List.NonEmpty as NonEmpty import Data.Text (Text) import qualified Data.Text as Text @@ -209,8 +206,8 @@ reconfigureFiddleDecls p decls = do (EnumBitType expr body a) a -identToName :: Identifier I a -> Name I a -identToName ident = Name (NonEmpty.singleton ident) (annot ident) +-- identToName :: Identifier I a -> Name I a +-- identToName ident = Name (NonEmpty.singleton ident) (annot ident) internObjType :: Path -> ObjTypeBody Expanded I Annot -> M (Name I Annot) internObjType [] _ = compilationFailure |