@@ -139,9 +139,9 @@ blockToOrg (CodeBlock (_,classes,_) str) = do
139139 "ledger", "lisp", "matlab", "mscgen", "ocaml", "octave",
140140 "oz", "perl", "plantuml", "python", "R", "ruby", "sass",
141141 "scheme", "screen", "sh", "sql", "sqlite"]
142− let (beg, end) = if null at
143− then ("#+BEGIN_EXAMPLE", "#+END_EXAMPLE")
144− else ("#+BEGIN_SRC" ++ head at, "#+END_SRC")
142+ let (beg, end) = case at of
143+ [] -> ("#+BEGIN_EXAMPLE", "#+END_EXAMPLE")
144+ (x:_) -> ("#+BEGIN_SRC " ++ x, "#+END_SRC")
145145 return $ text beg $$ nest tabstop (text str) $$ text end $$ blankline
146146blockToOrg (BlockQuote blocks) = do
147147 contents <- blockListToOrg blocks