diff --git a/README b/README
--- a/README
+++ b/README
@@ -65,6 +65,8 @@
   
   CHANGES
   -------
+  1.2.1:  * Fixed a regression, detection of language pragmas was apparently
+            broken and now they aren't anymore.
   1.2.0:  * Hopefully the ``ambiguous infix operator'' error shouldn't occur 
             that often anymore.
           * Removed the AGDA dependency for until it actually works.
diff --git a/lhs2TeX-hl.cabal b/lhs2TeX-hl.cabal
--- a/lhs2TeX-hl.cabal
+++ b/lhs2TeX-hl.cabal
@@ -1,5 +1,5 @@
 Name:               lhs2TeX-hl
-Version:            0.1.2.0
+Version:            0.1.2.1
 Cabal-Version:      >= 1.6
 License:            MIT
 Author:             Alessandro Vermeulen <me@alessandrovermeulen.me>
diff --git a/src/Base/Common.hs b/src/Base/Common.hs
--- a/src/Base/Common.hs
+++ b/src/Base/Common.hs
@@ -1,4 +1,4 @@
 module Base.Common where
   
-programVersion = "0.1.2.0"
+programVersion = "0.1.2.1"
 programName    = "lhs2TeX-hl"
diff --git a/src/Literate/Haskell.hs b/src/Literate/Haskell.hs
--- a/src/Literate/Haskell.hs
+++ b/src/Literate/Haskell.hs
@@ -3,9 +3,10 @@
 module Literate.Haskell (runHaskell, mapping, listClasses, fromParse) where
 
 import Data.List (nub)
+import Data.Maybe
 import Data.Data
 import Data.Generics
-import Language.Haskell.Exts
+import Language.Haskell.Exts hiding (parseFile)
 
 import Language.LaTeX
 import Literate.SimpleInfo
@@ -13,10 +14,14 @@
 
 newtype M = M Module deriving (Typeable, Data)
 
+parseFile fp = parseFileWithMode (defaultParseMode { fixities      = baseFixities
+                                                   , parseFilename = fp      
+                                                   } 
+                                 )
+                                 fp
 
 runHaskell :: FilePath -> IO SimpleInfo
-runHaskell fp = do mod <- parseFileWithMode (defaultParseMode { fixities = baseFixities } ) 
-                                            fp
+runHaskell fp = do mod <- parseFile fp
                    case mod of
                      (ParseOk m)           -> return $ getSimpleInfo m
                      (ParseFailed loc err) -> error $