Skip to content

Commit

Permalink
forgot to add changes
Browse files Browse the repository at this point in the history
  • Loading branch information
xy-kasumi committed Aug 10, 2013
1 parent 54fa86f commit c26f236
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
3 changes: 1 addition & 2 deletions SAM.hs
Original file line number Diff line number Diff line change
Expand Up @@ -42,11 +42,10 @@ import Numeric
import Text.Printf

import Util
import SCGR
import Brainfuck


compile :: SAM -> Process SCGR
compile :: SAM -> Process BF
compile (SAM _ [SProc _ [] ss])=return $ BF $ soptBF $ concatMap compileS ss

soptBF []=[]
Expand Down
3 changes: 2 additions & 1 deletion Util.hs
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE FlexibleInstances, OverlappingInstances #-}
-- | Modular error reporting and common functions
--
-- note for future me: Arrow vs. Monad
Expand Down Expand Up @@ -46,6 +46,7 @@ instance Show CompileError where
show (CompileError m p d)=m++":"++p++":\n"++d
show (CompileErrorN m d ps)=m++":\n"++d++"\n"++concatMap (\x->"in "++x++"\n") ps


instance Error [CompileError] where
noMsg=[]

Expand Down

0 comments on commit c26f236

Please sign in to comment.