@@ -16,7 +16,7 @@ import qualified Data.Set as S
16import Control.Applicative (liftA, (<*), (*>), (<$>))
16import Control.Applicative (liftA, (<*), (*>), (<$>))
17import Data.Functor.Identity (Identity)
17import Data.Functor.Identity (Identity)
18import Data.Time.Format
18import Data.Time.Format
19−import System.Locale
19+--import System.Locale
21atomTypeP :: Parser AtomType
21atomTypeP :: Parser AtomType
22atomTypeP = (reserved "char" *> return StringAtomType) <|>
22atomTypeP = (reserved "char" *> return StringAtomType) <|>