v0.5.3.2: quick regression fix

mtolly · Apr 6, 2017 · 95bcba1 · 95bcba1
1 parent c5c65dc
commit 95bcba1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/jammittools.cabal b/jammittools.cabal
@@ -1,5 +1,5 @@
 Name:               jammittools
-Version:            0.5.3.1
+Version:            0.5.3.2
 Synopsis:           Export sheet music and audio from Windows/Mac app Jammit
 Description:
 
@@ -61,7 +61,7 @@ executable jammittools
     , directory     >= 1.2.0.1 && < 1.4
     , filepath      >= 1.3.0.1 && < 1.5
     , boxes         >= 0.1.3   && < 0.2
-    , jammittools   == 0.5.3.1
+    , jammittools   == 0.5.3.2
   ghc-options:      -Wall -O2
 
 source-repository head

diff --git a/src/Sound/Jammit/Base.hs b/src/Sound/Jammit/Base.hs
@@ -234,8 +234,8 @@ lsAbsolute d =
 -- info file.
 songSubdirs :: FilePath -> IO [FilePath]
 songSubdirs dir = case takeFileName $ dropTrailingPathSeparator dir of
-  '.' : _ -> return []
-  _       -> do
+  fn@('.' : _ : _) | fn /= ".." -> return []
+  _                             -> do
     isSong <- Dir.doesFileExist $ dir </> "info.plist"
     let here = [dir | isSong]
     subdirs <- lsAbsolute dir >>= filterM Dir.doesDirectoryExist