@@ -158,7 +158,7 @@ getOlsonPart getTime = do
158 TtInfo gmtoff isdst ttype . takeWhile (/= '\NUL') . drop abbrind
158 TtInfo gmtoff isdst ttype . takeWhile (/= '\NUL') . drop abbrind
159 setTtype ttinfo ttype = ttinfo {tt_ttype = ttype}
159 setTtype ttinfo ttype = ttinfo {tt_ttype = ttype}
160 boolsToTType _ isgmt | isgmt = UTC
160 boolsToTType _ isgmt | isgmt = UTC
161− booslToTType isstd _ = maybe UnknownType stdOrWall isstd
161+ boolsToTType isstd _ = maybe UnknownType stdOrWall isstd
162 stdOrWall isstd
162 stdOrWall isstd
163 | isstd = Std
163 | isstd = Std
164 | otherwise = Wall
164 | otherwise = Wall