hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

Lastest docs updated

Browse Source 
travis build: 20
commit: 89b231a2c9
auto-pushed to gh-pages
This commit is contained in:
travis-ci
2016-06-01 21:45:54 +00:00
parent 00127160d5
commit 9030945b94
64 changed files with 628 additions and 590 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
src/Main.html
View File

@@ -38,34 +38,42 @@
<a name="line-29"></a> <span class='hs-layout'>)</span>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>HPath</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>P</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>Callbacks</span>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>Data</span>
<a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>MyGUI</span>
<a name="line-35"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>MyView</span>
<a name="line-36"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Safe</span>
<a name="line-37"></a> <span class='hs-layout'>(</span>
<a name="line-38"></a> <span class='hs-varid'>headDef</span>
<a name="line-39"></a> <span class='hs-layout'>)</span>
<a name="line-40"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Posix</span><span class='hs-varop'>.</span><span class='hs-conid'>Env</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>SPE</span>
<a name="line-41"></a>
<a name="line-42"></a>
<a name="line-43"></a><a name="main"></a><span class='hs-definition'>main</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-44"></a><span class='hs-definition'>main</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-45"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>initGUI</span>
<a name="line-46"></a>
<a name="line-47"></a> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-conid'>SPE</span><span class='hs-varop'>.</span><span class='hs-varid'>getArgs</span>
<a name="line-48"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>mdir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromJust</span> <span class='hs-varop'>$</span> <span class='hs-conid'>P</span><span class='hs-varop'>.</span><span class='hs-varid'>parseAbs</span> <span class='hs-str'>"/"</span><span class='hs-layout'>)</span>
<a name="line-49"></a> <span class='hs-layout'>(</span><span class='hs-conid'>P</span><span class='hs-varop'>.</span><span class='hs-varid'>parseAbs</span> <span class='hs-varop'>.</span> <span class='hs-varid'>headDef</span> <span class='hs-str'>"/"</span> <span class='hs-varop'>$</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span>
<a name="line-50"></a>
<a name="line-51"></a> <span class='hs-varid'>mygui</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>createMyGUI</span>
<a name="line-52"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>newTab</span> <span class='hs-varid'>mygui</span> <span class='hs-varid'>createTreeView</span> <span class='hs-varid'>mdir</span>
<a name="line-53"></a>
<a name="line-54"></a> <span class='hs-varid'>setGUICallbacks</span> <span class='hs-varid'>mygui</span>
<a name="line-55"></a>
<a name="line-56"></a> <span class='hs-varid'>widgetShowAll</span> <span class='hs-layout'>(</span><span class='hs-varid'>rootWin</span> <span class='hs-varid'>mygui</span><span class='hs-layout'>)</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>FileSystem</span><span class='hs-varop'>.</span><span class='hs-conid'>FileType</span>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>Callbacks</span>
<a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>Data</span>
<a name="line-35"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>MyGUI</span>
<a name="line-36"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>HSFM</span><span class='hs-varop'>.</span><span class='hs-conid'>GUI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>MyView</span>
<a name="line-37"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Prelude</span> <span class='hs-varid'>hiding</span><span class='hs-layout'>(</span><span class='hs-varid'>readFile</span><span class='hs-layout'>)</span>
<a name="line-38"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Safe</span>
<a name="line-39"></a> <span class='hs-layout'>(</span>
<a name="line-40"></a> <span class='hs-varid'>headDef</span>
<a name="line-41"></a> <span class='hs-layout'>)</span>
<a name="line-42"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span><span class='hs-varop'>.</span><span class='hs-conid'>Error</span>
<a name="line-43"></a> <span class='hs-layout'>(</span>
<a name="line-44"></a> <span class='hs-varid'>catchIOError</span>
<a name="line-45"></a> <span class='hs-layout'>)</span>
<a name="line-46"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Posix</span><span class='hs-varop'>.</span><span class='hs-conid'>Env</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>SPE</span>
<a name="line-47"></a>
<a name="line-48"></a>
<a name="line-49"></a><a name="main"></a><span class='hs-definition'>main</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-50"></a><span class='hs-definition'>main</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-51"></a> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-conid'>SPE</span><span class='hs-varop'>.</span><span class='hs-varid'>getArgs</span>
<a name="line-52"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>mdir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromJust</span> <span class='hs-varop'>$</span> <span class='hs-conid'>P</span><span class='hs-varop'>.</span><span class='hs-varid'>parseAbs</span> <span class='hs-str'>"/"</span><span class='hs-layout'>)</span>
<a name="line-53"></a> <span class='hs-layout'>(</span><span class='hs-conid'>P</span><span class='hs-varop'>.</span><span class='hs-varid'>parseAbs</span> <span class='hs-varop'>.</span> <span class='hs-varid'>headDef</span> <span class='hs-str'>"/"</span> <span class='hs-varop'>$</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span>
<a name="line-54"></a>
<a name="line-55"></a> <span class='hs-varid'>file</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>catchIOError</span> <span class='hs-layout'>(</span><span class='hs-varid'>rethrowFailed</span> <span class='hs-varop'>$</span> <span class='hs-varid'>readFile</span> <span class='hs-varid'>getFileInfo</span> <span class='hs-varid'>mdir</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-56"></a> <span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>readFile</span> <span class='hs-varid'>getFileInfo</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromJust</span> <span class='hs-varop'>$</span> <span class='hs-conid'>P</span><span class='hs-varop'>.</span><span class='hs-varid'>parseAbs</span> <span class='hs-str'>"/"</span>
<a name="line-57"></a>
<a name="line-58"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>mainGUI</span>
<a name="line-59"></a> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-60"></a>
<a name="line-58"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>initGUI</span>
<a name="line-59"></a> <span class='hs-varid'>mygui</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>createMyGUI</span>
<a name="line-60"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>newTab</span> <span class='hs-varid'>mygui</span> <span class='hs-varid'>createTreeView</span> <span class='hs-varid'>file</span>
<a name="line-61"></a>
<a name="line-62"></a> <span class='hs-varid'>setGUICallbacks</span> <span class='hs-varid'>mygui</span>
<a name="line-63"></a>
<a name="line-64"></a> <span class='hs-varid'>widgetShowAll</span> <span class='hs-layout'>(</span><span class='hs-varid'>rootWin</span> <span class='hs-varid'>mygui</span><span class='hs-layout'>)</span>
<a name="line-65"></a>
<a name="line-66"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>mainGUI</span>
<a name="line-67"></a> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-68"></a>
</pre></body>
</html>