From b02d13d7084ad93d1432b6106ea9031b763a761a Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Thu, 2 Nov 2017 16:07:16 +0300
Subject: Fix: remove `init`

---
 Pancake.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index 0c15648..20e8c43 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -674,8 +674,11 @@ loadDocument u' = do
             -- handle relative URIs
             (_, False, ((cur, _):_, _)) -> relativeTo u' cur
             _ -> u'
+      uScheme = case uriScheme u of
+        [] -> "unknown"
+        (_:s) -> s
       cmd = maybe (defaultCommand $ conf st) id $
-        M.lookup (init $ uriScheme u) (commands $ conf st)
+        M.lookup uScheme (commands $ conf st)
       ext = case takeExtension $ uriPath u of
         ('.':xs) -> map toLower xs
         other -> other
-- 
cgit v1.2.3