summaryrefslogtreecommitdiff
path: root/src/Tex.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Tex.hs')
-rw-r--r--src/Tex.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Tex.hs b/src/Tex.hs
index 5d347b9..264c1c1 100644
--- a/src/Tex.hs
+++ b/src/Tex.hs
@@ -70,7 +70,7 @@ withCurrentDirectory dir action =
70 action 70 action
71 71
72extractAlignment :: String -> String 72extractAlignment :: String -> String
73extractAlignment = fromMaybe "0pt" . extract . (=~ "depth=([^\\s]+)") 73extractAlignment = fromMaybe "0" . extract . (=~ "depth=([^\\s]+)pt")
74 where 74 where
75 extract :: (String, String, String, [String]) -> Maybe String 75 extract :: (String, String, String, [String]) -> Maybe String
76 extract (_, _, _, xs) = listToMaybe xs 76 extract (_, _, _, xs) = listToMaybe xs